home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / game / saori / henkan.bas next >
BASIC Source File  |  1995-08-03  |  2KB  |  66 lines
  1. 10  'HENKAN.BAS  ｢Ｄ.Ｔ.Ｆ.｣  LZW圧縮←→非圧縮変換プログラム
  2. 20  ON ERROR GOTO *ERRSUB
  3. 30  SCREEN 0:SCREEN@ 0:CLS
  4. 40  '
  5. 50  'INDR$ ="F:\FRICO\"
  6. 60      '入力元のパスを指定して下さい｡
  7. 70      '最後には\が付くようにしてください｡
  8. 80  '
  9. 90  'OUTDR$="F:\FRICO\"
  10. 100      '出力先のパスを指定して下さい｡
  11. 110      '最後には\が付くようにしてください｡
  12. 120      '出力先に既に同じファイル名がある場合は､勝手に上書きします｡
  13. 130      '入力元と出力先を同じにすることもできます｡(上書きになります)
  14. 140  '
  15. 150  HENKAN=0
  16. 160      '0 か 1 を指定して下さい｡
  17. 170      '   HENKAN=0 なら､   →「非圧縮 」に変換して出力
  18. 180      '   HENKAN=1 なら､   →「LZW圧縮」に変換して出力
  19. 190  '
  20. 200  '以上で指定箇所は終わりです｡プログラムを実行して下さい｡
  21. 210  '実行には､ある程度時間がかります｡
  22. 220  '
  23. 230  B$="SAGG.TIF"  :X=319:Y=239:PALT=0      :GOSUB *LKS
  24. 240  B$="SAMM.TIF"  :X=319:Y=239:PALT=0      :GOSUB *LKS
  25. 250  B$="SASUB1.TIF":X=639:Y=479:PALT=1      :GOSUB *LKS
  26. 260  B$="SASUB2.TIF":X=639:Y=479:PALT=1      :GOSUB *LKS
  27. 270  A$="SBH"       :X=639:Y=479:PALT=0      :GOSUB *SUB1
  28. 280  A$="SBOO"      :X=639:Y=191:PALT=0:M=27 :GOSUB *SUB2
  29. 290  A$="SCOO"      :X=319:Y=191:PALT=0:M=4  :GOSUB *SUB2
  30. 300  A$="SDOO"      :X=639:Y=159:PALT=0:M=6  :GOSUB *SUB2
  31. 310  A$="SYOO"      :X=287:Y=239:PALT=0:M=2  :GOSUB *SUB2
  32. 320  A$="SZOO"      :X=639:Y=239:PALT=0:M=2  :GOSUB *SUB2
  33. 330  END
  34. 340  '
  35. 350 *SUB1
  36. 360  FOR I=0 TO 3
  37. 370   B$=A$ + RIGHT$(STR$(1000+I),1) + ".TIF":GOSUB *LKS
  38. 380  NEXT
  39. 390  RETURN
  40. 400  '
  41. 410 *SUB2
  42. 420  FOR I=1 TO M
  43. 430   B$=A$ + RIGHT$(STR$(1000+I),3) + ".TIF":GOSUB *LKS
  44. 440  NEXT
  45. 450  RETURN
  46. 460  '
  47. 470 *LKS
  48. 480  LOADF=1
  49. 490  LOAD@ INDR$  + B$
  50. 500  LOADF=0
  51. 510  KILLF=1
  52. 520  KILL  OUTDR$ + B$
  53. 530  KILLF=0
  54. 540  SAVEF=1
  55. 550  SAVE@ OUTDR$ + B$ , (0,0)-(X,Y),PALT,HENKAN
  56. 560  SAVEF=0
  57. 570  RETURN
  58. 580  '
  59. 590 *ERRSUB
  60. 600  S$= "エラーです｡  ERR=" + STR$(ERR) + " :     ERL=" + STR$(ERL)
  61. 610  IF ERR=63 AND KILLF=1 THEN RESUME NEXT
  62. 620  IF ERR=63 AND LOADF=1 THEN S$=INDR$ + B$ + "が見つかりません"
  63. 630  IF ERR=63 AND SAVEF=1 THEN S$=OUTDR$ + ":出力先をチェックして下さい"
  64. 640  CLS:PRINT S$
  65. 650  RESUME 330
  66.